home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / perl / hash.ph < prev    next >
Text File  |  1991-08-11  |  596b  |  25 lines
  1. if (!defined &_HASH) {
  2.     eval 'sub _HASH {1;}';
  3.     if (!defined &_LIST) {
  4.     require 'list.ph';
  5.     }
  6.     if (!defined &_SPRITE) {
  7.     require 'sprite.ph';
  8.     }
  9.     eval 'sub HASH_STRING_KEYS {0;}';
  10.     eval 'sub HASH_ONE_WORD_KEYS {1;}';
  11.     eval 'sub Hash_GetValue {
  12.         local($h) = @_;
  13.         eval "(($h)-> &clientData)";
  14.     }';
  15.     eval 'sub Hash_SetValue {
  16.         local($h, $val) = @_;
  17.         eval "(($h)-> &clientData = ( &ClientData) ($val))";
  18.     }';
  19.     eval 'sub Hash_Size {
  20.         local($n) = @_;
  21.         eval "((($n) + $sizeof{\'int\'} - 1) / $sizeof{\'int\'})";
  22.     }';
  23. }
  24. 1;
  25.